00010 



XLIST 
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01900 
00010 
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000000 261140 000002 

000001 260140 000000 

000002 322100 000012' 

000003 202107 000017 

000004 260140 000001' 

000005 322100 000012' 

000006 202107 000014 

000007 262140 000002 

000010 260140 000000 

000011 254000 000000 

000012 262140 000002 

000013 254000 000000 



00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 



;routine to set up save-get device file-name table 
;called by command setup routines and save get 



INTERNAL 
EXTERNAL 
EXTERNAL 

SGSET: 



SGSET 

CTEXTl.SETUSR, HOLD, HON JOB 

CONMES.NOTENF.CPOPJl 



SGSETi: 



TACl 
CTEXTl 
TACl, SGSETI 
TACl, 17(PR0G) 
PDP, CTEXTl 
TACl, SGSETI 
TACl, 14(PR0G) 
POP PDP, TACl 
PUSHJ PDP, MONJOB 
JRST CPOPJl 

POP POP, TACl 
JRST NOTENF 



PUSH PDP, 

PUSHJ PDP, 

JUMPE 

MOVEM 

PUSHJ 

JUMPE 

MOVEM 



;SAVE STARTING ADDRESS( SAVJOB OR GETJOB 
;GET DEVICE NAME FROM COMMAND STRING 

JSAVE IN UUO AC AREA 
;GET FILE NAME FROM COMMAND STRING 



;SCHEDULE MONITOR JOB 

;SUPRESS CR-LF PRINTED BY COMINI 
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000014 P65040 000076' 

000015 200551 000000 

000016 20?551 000000 

000017 200540 000000 

000020 202547 000016 

000021 260152 000004 

000022 254000 000031' 

000023 260140 000134' 

000024 260140 000000 

000025 265040 000054' 

000026 452370 220246 

000027 406550 542032 

000030 050000 000000 

000031 265040 000054' 

000032 422232 242606 

000033 522372 254500 

000034 432531 446032 

000035 050000 000000 



00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 

00520 
00530 
00540 
00550 



00560 



;THIS JOB SAVES A JOB AREA ON RETRIEVABLE STORAGE 

;THIS JOB RUNS IN EXEC. MODE AND CALLS 10 ROUTINES DIRECTLY 

;N0 attempt is made to save status of 10 DEVICES, JOBPDP, OR ACS 

;IN FACT THE ONLY USEFUL THING WHICH MAY BE DONE WITH A JOB AREA 

JAFTER IT HAS BEEN SaVeD IS TO START EXECUTION OVER AT THE STARTING 

;address 

INTERNAL SaVJOB 

external USRPDP, OUT, USRREL,J0BPFI,J0B41,J08S41,THSDAT 

T=BUFPNT ;TEMP0RARY ACS 
T1=BUFWRD 



SAVJOB 



JSP TAC, SGI ,-SET UP ACS AND ASSIGN DEVICE 
MOVE Tl, J0B41(JDAT) ;SAVE USR UUO HANDLING JSR 
MOVEM T1,J0BS41(JDAT) 



MOVE Tl.THSDAT 
MOVEM T1,16(PR0G) 
PUSHJ POP, DEN(T) 
JRST SAV4 
PUSHJ PDP, SETLST 
PUSHJ PDP, OUT 
JSP TAC.SG2 

ASCIZ /JOB SAVED 



;SET DATE IN THIRD WORD 
;ENTER FILE NAME IN DIRECTORY 

;directory full 

;SET DUMP command LIST IN USER ARE 
;00 AN OUTPUT 



/ 

SAV4 



JSP TAC,SG2 

ASCIZ /DIRECTORY FULL 
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000036 265040 000076' 

000037 260152 000005 

000040 254000 000047' 

000041 260140 000134' 

000042 260140 000000 

000043 265040 000054' 

000044 452370 220246 

000045 426512 550032 

000046 050000 000000 

000047 265040 000054' 

17100050 432231 442500 

000051 472372 420214 

000052 476531 642032 

000053 050000 000000 



00570 
00530 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 

00780 
00790 
00800 
00810 
00820 



00830 



;THIS JOB GETS A JOB AREA FROM A RETRIEVABLE DEVICE 

;THIS JOB RUNS IN EXEC. MODE AND CALLS 10 ROUTINES DIRECTLY 

;N0 ATTEMPT IS MADE TO RESTORE STATUS OF 10 DEVICES, PC, OR 

;JOBPC IS SET TO STARTING ADDRESS OF JOB 

;CORE MUST ALREADY HAVE BEEN ASSIGNED AND THE FOLLOWING LOC. 

;J0B DATA area: 

;JOBPDP, JOBREL 

INTERNAL GETJOB 
EXTERNAL USRREL, IN 



ACS 
SETUP IN 



GETJOB 



GET2: 



JSP TAC, SGI 
PUSHJ POP, DLK(T) 
JRST GET2 
PUSHJ PDP, SETLST 
PUSHJ PDP, IN 
JSP TAC,SG2 

ASCIZ /JOB SETUP 



JSP TAC,SG2 

ASCIZ /FILE NOT FOUND 



;SETUP ACS AND ASSIGN DEVICE 
JLOOKUP FILE NAME IN DIRECTORY 

;not found 

;SET DUMP COMMAND LIST IN USER ARE 
JDO AN INPUT 
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00840 

00850 

00860 ;R0UTINE TERMINATES SAVJOB AND GETJOB 

00870 JCLOSE, RELEASE, CHECK FOR ERRORS AND PRINT MESSAGE AND STOP JOB 

00880 ;ADDRESS of message in AC TAC 

00890 

00900 EXTERNAL RELEA2. SETUSR. TTYFNU, WA ITl , J0BS41 , J0B41 

00910 

00920 ERRORS=1B18+1B19+1B20+1B21 ;ERRORS CHECKED FOR IN 10 TRANSMISSION 

00930 

000054 260140 00000<?' 00940 SG2: PUSHJ PDP, WaITI 

000055 602000 740000 00950 TRNE lOS, ERRORS ;ANY ERRORS? 

000056 254000 000070' 00960 JRST SG2A JAN ERROR 

000057 261140 000001 00970 PUSH PDP, TAC ;SAVE PRINT ADDRESS 

000060 260140 000000 00980 PUSHJ PDP, RELEA2 JRELEASE DEVICE 

000061 260140 000000 00990 PUSHJ PDP, SETUSR ;SETUP COPY OF JOB AREA STORED IN SYSTE 
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000062 


200051 


000016' 


01000 

01010 


000063 


202051 


000015' 


01020 


000064 


260140 


000000 


01030 


000065 


262140 


000001 


01040 


000066 


260140 


000000 


01050 


000067 


254000 


000000 


01060 
01070 


000070 


265040 


000064 ' 


01080 
01090 


000071 


522450 


147246 


01100 


000072 


466232 


351622 




000073 


476344 


042644 




000074 


512372 


206424 


01110 


000075 


000000 


000000 





MOVE TAG, J0BS41(JDAT) 

;REST0RE user LOCATION 41 

MOVEM TAC, J0B41(JDAT) 
SG4: PUSHJ PDP,TTYFNU JFINQ TELETYPE 

POP POP. TAC ;REST0RE PRINT MESSAGE ADORES 

SG5: PUSHJ PDP.CONMES 

JRST HOLD 

SG2a: JSP TAC.SG4 

ASCIZ /TRANSMISSION ERROR 
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000076 

000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000120 
000121 
000122 
000123 

000124 
000125 
000126 

000127 
000130 
000131 
000132 
000133 



505140 
541147 
261140 
260140 
201600 
200047 
201340 
260140 
000000 
254000 
200006 
201600 
200340 
205500 
202507 
402007 
210540 
271540 
505540 
206547 
200506 
263140 



777763 
777777 

000001 

000000 

000017 

000017 

000000 

000000 

000000 

000124' 

000002 

000014 

000000 

445560 

000015 

000016 

000000 

000000 

000117' 

000017 

000003 

000000 



201040 000127' 
261140 000001 
254000 000064' 

422132 644606 

425011 647650 

202032 640622 

462030 246212 

064240 000000 



01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 



01480 



.ROUTINE CALEO BY SaVJOB AND GETJOBTO SETUP ACS 
;aND ASSIGN DEVICE 
;CALL: JSP TAC, SGI 

EXTERNAL JOBDAT, JOB, UINITl, WaITI, JOBADR, RESET 



SGi: 



SGERRA 



SGNAVL 



HRLI POP, -15 

HRRI PDP, -l(PROG) 

PUSH PDP, TAC 

PUSHJ PDP, RESET 

MOVEI UUO, D 

MOVE TAC, 17{PR0G) 

MOVEI PROG, 

PUSHJ PDP, UINITl 



JRST SGERRA 

MOVE lOS, OEVIOS(DEVDAT) 

MOVEI UUO, 14 

MOVE PROG, JOBADR 

MOVSI T, 445560 

MOVEM T, 15(PR0G) 

SETZM 16(PR0G) 

MOVN T1,USRREL 

ADDI T1,J0BPFI 

HRLI Tl.JOBPFI 

MOVSM T1,17(PR0G) 

MOVE T, DEVSER(DEVDAT) 

POPJ PDP, 

MOVEI TAC. SGNAVL 
PUSH PDP, TAC 
JRST SG4 

ASCIZ /DEVICE NOT AVAILABLE 



;SET UP PD LIST IN UUO ACS 



JSAVE RETURN ADDRESS 
;00 RESET UUO 
;DUMP MODE 

;device name 

;PRETEND RELOC 
;ASSIGN DEVICE 
;IBF,0BF 

;not available 

;SETUP 
;REL. ADDRESS OF 
;REST0RE PROG 

;SET file extension 



IS 



lOS 

4 word 



directory entry 



TO DMP 



SET NEG. WORD 
DONT DUMP LOC 



COUNT FROM 
0-JOBPFI 



JOBREL 



JSTORE IN 4TH WORD OF DIRECTORY 

JSETUP FOR DOING ENTER OF LOO 



SAVGET- SAVE AND GET COMMANDS 
T. HASTINGS 8-4-65 



000134 
000135 
000136 

000137 
000140 
000141 
000142 
000143 

000144 
000145 
000146 
000147 
000150 
000151 
000152 
000153 
000154 
000155 

000156 
000157 
000160 
000161 
000162 
000163 



200507 
202507 
402007 
574500 
270500 
321500 
201600 
263140 

260140 
260140 
255000 
574047 
213000 
242040 
271040 
201100 
260140 
265040 

201431 
462370 
202370 
476450 
426130 
064240 



000017 

000016 

000017 

000012 

000116' 

000144' 

000016 

000000 

000060' 

000064' 

000000 

000016 

000001 

777766 

000001 

000012 

000000 

000066' 

320204 
345646 
620206 
520234 
442610 
000000 



01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 

01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 



01750 
01760 
01770 
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{ROUTINE TO SET DUMP MODE COMMAND LIST IN USER AREA 
EXTERNAL ANYRDX, RELEA2, TTYFNU 



SETLST: 



NOROOM 



/ 



MTH WORD FROM DIRECTORY 



;DUMP MODE 



MOVE T, 17(PR0G) 
MOVEM T, 16(PR0G) 
SETZM 17(PR0G) 
HLRE T. T 
ADD T, USRREL 
JUMPL T, NOROOM 
MOVEI UU0,16 
POPJ POP, 

PUSHJ PDP,RELEA2 
PUSHJ POP. TTYFNU 
JFCL 

HLRE TAC, 16(PR0G) 
MOVNS TAC 
LSH TAC, -12 
ADDI TAC, 1 
MOVEI TACl, 12 
PUSHJ POP, ANYRDX 
JSP TAC,SG5 



ASCIZ / IK BLOCKS OF CORE NEEDED 



;PRINT NO. OF BLOCKS NEEDED 



END, 



THERE ARE NO ERRORS 



PROGRAM BREAK IS 000164 
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A 

ACl 

AC? 

AC3 

AL 

ANYRDX 

ASSCON 

ASSPRG 

R 

RUFPNT 

RUFWRD 

CLOSB 

nONMES 

CPOPJl 

CTFXTl 

D 

DAT 

DCL 

DCW 

ODI 

DDO 

DDTMEM 

DDTSYM 

OEN 

DEVADR 

DEVBUE 

DEVCHR 

DEVCTR 

OEVDAT 

DEVIAD 

GEVIOS 

DEVLOG 

OEVMOD 

OEVNAM 

QEVOAO 

DEVPTR 

OEVSER 

DGF 

DIN 

DLK 

DOU 

OR 

ORL 

DSI 

OSO 

DTW 

OVAVAL 

DVDIR 

DVDIRI 

DVIN 

OVLPT 

n V M T A 

DVOUT 

nVTTY 

ENTRR 



000000 


INT 


00 015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


000154 ' 


EXT 


400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


00P000 


INT 


000066' 


EXT 


000011' 


EXT 


000004' 


EXT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 
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FRRORS 

GET2 

GETJOB 

HOLD 

I 

IB 

IBUFB 

IN 

INITB 

INPB 

10 

lOACT 

lOREG 

lOBKTL 

lOnON 

lODENO 

lOnERR 

lODISC 

lOnONE 

lODTER 

lOFND 

lOFST 

lOlMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITFM 

JBFADR 

JBFCTR 

JBFPTR 

JBUF 

JDAT 

JERR 

JIOW 

JNA 

JOB 

J0P41 

JORADR 

JORDAT 

JORPFI 

J0RS41 

LOOKB 

MONJOB 

MTW 

NOROOM 

NOTENF 

OBUFB 

OUT 

OUTPB 



74?!000 




000047' 




000036' 


INT 


000067' 


FXT 


000010 


INT 


000013 


INT 


?00000 


INT 


000042' 


FXT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000005 


INT 


PI00011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000000 


FXT 


000063' 


FXT 


000112' 


EXT 


000000 


EXT 


000120' 


FXT 


000062' 


EXT 


040000 


INT 


000010' 


EXT 


010000 


INT 


000144' 




000013' 


EXT 


100000 


INT 


000024' 


EXT 


004000 


INT 
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PDP 




000003 


INT 


PICHN 




000100 


INT 


PROG 




000007 


INT 


RELEA2 




000144' 


EXT 


RESET 




000101' 


EXT 


RUN 




200000 


INT 


RUNABL 




204000 


INT 


SAV4 




000031' 




SAVJ08 




000014' 


INT 


SETLST 




000134' 




SETUSR 




000061 ' 


EXT 


SGI 




000076' 




SG2 




000054 ' 




SG2A 




000070' 




SG4 




000064' 




SG5 




000066' 




SGFRRA 




000124' 




SGNAVL 




000127' 




SGSET 




000000' 


INT 


SGSETl 




000012' 




T 




000012 




Tl 




000013 




TAG 




000001 


INT 


TACl 




000002 


INT 


TEM 




000010 


INT 


THSDAT 




000017' 


EXT 


TTYATC 




020000 


INT 


TTYFNU 




000145' 


EXT 


TTYUSE 




010000 


INT 


UINITl 




000105' 


EXT 


USRMOD 




010000 


INT 


USRPDP 




000000 


EXT 


USRRFL 




000140' 


EXT 


UUO 




000014 


INT 


WAIT! 




000054' 


EXT 
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